#remotes::install_github("mrustl/tigo")
library(tigo)
datetime_min <- as.POSIXct("2021-03-15 14:30:00 CET")
tigo_data <- tigo::get_data_aggregate(datetime_min = datetime_min)
#> No encoding supplied: defaulting to UTF-8.
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 73488 rows
#> [5, 11, 12, 15, 19, 20, 29, 30, 31, 34, 38, 39, 42, 44, 45, 47, 48, 49, 50,
#> 51, ...].
#> No encoding supplied: defaulting to UTF-8.
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 73488 rows
#> [5, 11, 12, 15, 19, 20, 29, 30, 31, 34, 38, 39, 42, 44, 45, 47, 48, 49, 50,
#> 51, ...].
#> No encoding supplied: defaulting to UTF-8.
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 192906 rows [1,
#> 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, ...].
#> No encoding supplied: defaulting to UTF-8.
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> .default = col_character()
#> )
#> ℹ Use `spec()` for the full column specifications.
#> Warning: Expected 2 pieces. Missing pieces filled with `NA` in 73488 rows
#> [5, 11, 12, 15, 19, 20, 29, 30, 31, 34, 38, 39, 42, 44, 45, 47, 48, 49, 50,
#> 51, ...].
str(tigo_data)
#> tibble [561,988 × 9] (S3: tbl_df/tbl/data.frame)
#> $ param : chr [1:561988] "Pin" "Pin" "Pin" "Pin" ...
#> $ DATETIME : POSIXct[1:561988], format: "2021-03-15 14:30:00" "2021-03-15 14:30:00" ...
#> $ cca_mac : chr [1:561988] "04C05B900AF2" "04C05B900AF2" "04C05B900AF2" "04C05B900AF2" ...
#> $ type : chr [1:561988] "panels" "panels" "panels" "panels" ...
#> $ id : chr [1:561988] "A4" "A13" "A21" "B1" ...
#> $ paramheader: chr [1:561988] "Pin" "Pin" "Pin" "Pin" ...
#> $ value : num [1:561988] 0 0 0 0 0 0 0 0 0 0 ...
#> $ string : chr [1:561988] "A" "A" "A" "B" ...
#> $ position : chr [1:561988] "4" "13" "21" "1" ...
#> - attr(*, ".internal.selfref")=<externalptr>
interactive <- TRUE